home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
util1
/
jukebx21.lha
/
JukeBox_2.1
/
FADEIN.JB
< prev
next >
Wrap
Text File
|
1994-03-29
|
609b
|
39 lines
/* fade in - requires V2 player module */
/* (c) copyright 1993 by F.J. Reichert */
options results;
current volume resolution;
maximum = result - 1;
current volume right;
right = result;
current volume left;
left = result;
play;
if right > left then do
do i = left to right;
set volume i "-1";
current break;
if result ~= 0 then exit(5);
end;
level = right;
end;
else do;
do i = right to left;
set volume "-1" i;
current break;
if result ~= 0 then exit(5);
end;
level = left;
end;
do i = level to maximum;
set volume i i;
current break;
if result ~= 0 then exit(5);
end;
exit(0);